Imports System.Data.SqlClient
Public Class Motivos

    Public Function GenerarMotivo(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MotivoGenerar", New SqlParameter("@Nom", Dat(0)), _
        New SqlParameter("@Mot", Dat(1)))
        Return DS
    End Function

    Public Function ObtenerMotivo(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MotivosObtener", New SqlParameter("@Txt", Dat(0)))
        Return DS
    End Function

    Public Function EliminarMotivo(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MotivosObtener", New SqlParameter("@Cod", Dat(0)))
        Return DS
    End Function

End Class
